two_norm <-
function(x){
	sqrt(sum(x^2))
}

